home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1999 Spring / macformat-077.iso / Shareware Plus / Development / Akua Sweets 131 / Akua Sweets Examples / Imaging / Show Clipboard Picture < prev    next >
Encoding:
Text File  |  1999-03-04  |  428 b   |  24 lines  |  [TEXT/ToyS]
  1. property kasWindowTitle : "Clipboard Picture"
  2. global gasWindow
  3.  
  4.  
  5. on run
  6.     set gasWindow to ¬
  7.         display drawing titled kasWindowTitle ¬
  8.             with dimensions {128, 128}
  9. end run
  10.  
  11.  
  12. on idle
  13.     set clipAvail to (clip with content flavors)
  14.     
  15.     if (clipAvail contains "PICT") then
  16.         draw a picture into gasWindow ¬
  17.             using data (clip flavor "PICT") ¬
  18.             with scale {-2, -2} ¬
  19.             with a clear slate -- Half size
  20.     end if
  21.     
  22.     return 15
  23. end idle
  24.